VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsLumpClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private rLumpBytes() As Byte
Public LumpSize As Long
Public LumpName As String
Public LumpPosition As Long
Public LumpType As enLTy

Public Property Get LumpByte(Index As Long) As Byte
If Index > LumpSize Then Exit Property
LumpByte = rLumpBytes(Index)
End Property
Public Property Let LumpByte(Index As Long, Val As Byte)
rLumpBytes(Index) = Val
End Property
Public Sub LumpBytes(rByteArr() As Byte)
rByteArr = rLumpBytes
End Sub

Public Sub SetBytes(Bytes() As Byte)
rLumpBytes = Bytes
End Sub
